13U5 SEP 08jt7R !D*Q0£7 
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LIMIT <C0RE:#16>#<TIME*10> 
ASSIGN MtClj(FlLE#PCL* JDOUCl) 
METASVM CIiLB'CN 

*SS ROjRljR»jR3#R4*R5#K6#R7jR8jiR9#R10#Rli#Ria#RiajRUjR15 

#SS SRliSR?jSR3iSR##Di'D2jD3#D4i# 



ACTI8N 





337/BAt 


3S3/8AL 


424-EQU 




ACTI8N3 


773/8 


777*LW 






ACTTBL 


447/EXU 


4S1-EQU 






ADDFILEN 










127/RFF 


66K/BAI 


680/BAL 




ANSBLK 












101/OEF 


44^/ST* 


927-EGU 




ARQBUFF 












5*/DEF 


469/lH 


481/LW 


484/LW 




68H/IM 


794-EOU 


795/EQU 


857/EGU 


ARGBUF4 












64/DrF 


768/LI 


837-EQU 




ARGTBL 












59/DEF 


79S-EQU 


796/EQU 


827/EQU 


ATTRB 










R *CPDrR 


74/DFF 


8l#>«EQU 


817/EQU 




OAStntW 


148/8QE 


161 »LW 






BLKBUFF 


10?/DFF 


92A.EGU 






BLKSIZE 
Mop a is 


103/DCF 


924»EGU 






DRc-A^ 


274/STW 


38R/MTIN 


9U/MT* 


921-DSECT 


BUFSIZF 












70/DPF 


16Q/STW 


792»EQU 


793/EQU 


CARDSFQ 












7*/DEF 


8lft*EQU 


819/EQU 




CI8LEFT 












76/DFF 


834-EQU 


835/EQU 




ClBTBTAl 












76/DFF 


83R-EGU 


836/EQU 




CTBUSED 












7A/DEF 


833-EQU 


834/EGU 





671/LM 



673/LM 



686/UM 



CTSEQ 



76/D£F 


83g»EQU 












C I WORD 














76/OEF 


83A-EQU 


837/EOU 










CL8SDCB 














549/BAl 


5S1/BAL 


553/BAL 


562«LW 








CLasFPT 














565/CALl 


567-GEN 












CM8X 














57/DpF 


21P/STW 


357/STW 


612/STw 


649/LW 


675/LW 


796-LQU 


797/EQU 














CMSXOIFF 














6*/0EF 


877-EGU 












CMBXHLD 














111/DEF 


213/STW 


3S8/ST* 


852'FQU 


853/EQU 






CMDBUF 














57/OFF 


191 /LI 


209/AI 


?li/LI 


831/LI 


241/AI 


333/LI 


353/Al 


35A/LI 


579/LI 


797»EQU 


798/EQU 


877/EQU 


877/fcQU 


877/EQU 


877/EQU 












CMOTBL 














777/LW 


88n»DATA 












CMDTBLX 














772/LW 


89R»DATA 












CMDTBLXl 














898/DATA 


904»EQU 












CMOTBLl 














880/OATA 


897-EQU 












C6BLEFT 














77/DgF 


840»EQU 


841/EQU 










C6BUSED 














77/DEF 


839»EQU 


84Q/EQU 










ceoe 














59/D£F 


829*EQU 


830/EQL 










C8NTCHK 














22?/BAU 


369/BAL 


578-EQL 










C8NTINUF 














105/DrF 


17A/LI 


605/LI 


865*FQU 









C©NTM&D£ 

C9NTPTR 

C8NT1 

c»ntp 

C9MT3 

C6NT33 

C6NT4 

C8NT5 
C8NT6 

C9^T7 

C9PYALL 
C9PYPHY 

C8PYSK 

C8PYSTDF 

C8PYT8 

C8PY1 

C9PY2 

C9PY3 

C9W8RD 



591 /MTW 

177/STW 

591-MT* 

584»£GU 

587/BE 

58P/8EZ 

S83/BU 

600/BNEZ 

594/8 

6C9/BQE 

114/RFF 
9A/D£F 
8B/0EF 
8P/DEF 

113/R^F 

453/B 

473/BNiE 

471/BE 



59Q/MTW 

60A/STW 

59ft/BE 

59S/BDR 

595-BDR 

59*«LB 

589/BNE 

603-AI 

60R-LI 

61K»AI 

47A/BAI 

441 /STW 

440/STW 

43n/STW 

478/BAL 

469»LW 

47A-BAL 

47B-EQU 



607/STW 
62Q/Ak 



599-MT* 



692/MTW 
647/MTW 

474/MTW 



«43*F0U 



944*EQU 
703/MTW 
825«EQU 



844/EQU 
(&2S 'l»" 



842*EQU 



343/t.QU 



938-&QU 
839/EQU 



77/DFF 


841 -EQU 


842/EQU 






DATETBL 










85/DFF 


937»EQU 






- 


OCBADD 










6?/0PF 


79«*EQU 


799/EQU 






DEL*CT 










92/DEF 


433/STW 


855-EGU 






DELERR 










70*»LI 










DELETE 










12J/REF 


49n/BAL 








DELETEAL 










121/REF 


48K/BAL 








DEIETEF 










93/DEF 


44P/STW 


930-EGU 






DELI 










454/B 


*81»LW 








DELS 










483/8NE 


490»BAL 








densitv 










9J/DEF 


43P/STW 


854-EQU 


855/EQU 




DEV*IN 










10JVDEF 


4£g/sTW 


656/LW 


848*EOU 


849/EQU 


DEV$9UT 










10F/DEF 


429/STW 


849. EGU 


850/EQU 




DEV$SAV 










109/DEF 


850-EGU 


851/EQU 






DEV$SAVt 










11O/0PF 


8B1«EQU 


852/EQU 






DEVICE 










59/DEF 


654/LW 


663/LM 


S27*EQU 


828/EQU 


DFVTRAN 










132/REF 


651 /BAL 








DVLAR6 










60/DEF 


92**EGU 








EATTRB 










8S/DEF 


939*EGU 









SNOCMD 














5 




448-PLW 


477/B 


479/8 


489/B 


491/8 


S12/BNEZ 


514/b 


ENDCMDl 


















37P/8 


38P/B 


386/BLEZ 


389/BEZ 


41S"C! 






ENDPCL 


















2*1 /B 


5?f./B 


529/BL2 


547*EQU 








ERCMDBUF 
















6R/DEF 


21R/LI 


362/LI 


793«EQU 


794/EQU 


877'EQU 


878/EQU 




87J/EQU 


87*/EQU 












ERP$J6B 


557/BF 


5«59»EGU 












ERRFLAG 


















61/PEF 


359/STW 


799-EQU 


800/EQU 


859/EQU 






ERRFLG4 


6A/DEF 


8£9»EQU 












ERRSR 


















113/REF 


381/BAl 


630/BAt 


709/BAL 


720/BAL 


7S2/BAL 




EXACCT 


88/DeF 


863-EQU 












EXPIRE 


106/DEF 


84R-EQU 


846/EQU 










EXTBL 


87/DEF 


43*/STW 


947-EQU 










FILE 


59/DEF 


8g««EQU 


829/EGU 










FIXARG 


113/REF 


778/BAt 












FPARAM 


63/OEF 


399/LI 


867-EQU 










FPTAB0R1 


525/CAUl 


53<*»GEN 












FPTC8HD 


23B/CAL1 


284/CAll 


286-GFN 










FPTC6MD1 


L 

299/CAL1 


301»QEN 












FPTC8MD2 
















309«GEN 


349/CAll 













FPTCSMD3 








31#«GEN 


3*A/CAll 






FPTCBMP 








29?/CAUl 


294»GEN 






FPTC6MPP 








307.GEN 


330/CAL1 






FPTC8NSL 








67/DEF 


26*/CAll 


266-GEK 




FPTFILMD 








390/CAll 


39?»GEN 






FPTFILNM 








406/CALl 


4Qft»GEN 






FPTSP 








140/CAUl 


143»*DATA 


145»DATA 




FPTHERE 








247/CAUl 


2*9»GEN 






FPTINT 








188/CAli 


187«GEN 






FPTPROMT 








7P/DPF 


17«/CAll 


180-GFN 


316/DATA 


FPTRMPCL 








531/CAUl 


533-GEN 






FR9MCMBX 








99/DEF 


67A/ST* 


943-EQU 




FRtMFlLE 








93/DEF 


43*/STW 


635/MTW 


A72/STK 


931 -ECU 








GPTARG 








113/RFF 


738/BAl 


766/8AL 




GRANCNT 








96/DEF 


9**»EGU 






INlfARG 








107/DFF 


42^/sTW 


846-EQU 


847/EQU 


INSWT 








6P/DFF 


8on»EGU 


801/ECU 




INT 








187/QFN 


9lo»EQU 







A74/STM 



690^13 



699/UB 



INTARQ 
IGBUF 

IftERR 
JlCCBUF 

JJJIT 

WBJCCARS 
Kfv 

UlNEiNOP 

L.INEN6 

UTS 

LIST 
LISTCMBX 

LISTTEPM 

UST26 

UIS2 

LIS3 



125/REF 

62/DfF 
871/ECU 

61/DfF 

123/RpF 

118/RFF 

^93/MTW 

133/REF 
78/DfF 
89/DEF 
89/DEF 
90/DEF 
83/DFF 

121/RFF 
100/DEF 

ioo/def 

129/REF 
494/8GEZ 



741/BAl 

62A/CI 

87P/EQU 

36H/STW 

204/L8 

120/DEF 

19*/IB 

8l9*EQU 

869-EOU 

870-EQU 

871-EQU 

874«EQU 

493-MTW 

5ln/BAL 

9<M»EQU 

94PpE0U 

91A/LI 
500/BE 



866-EQU 
873/EOU 

801-EQU 

207/LB 

182/LC 

528/MT* 



820/EQU 



713/BAL 



867/EQU 
874/EQU 

802/EQU 



193/LC 
B54/LC 



868/EQU 



869'EQU 



870/tQU 



230/LC 
710/MTW 



245/MTW 

714/MTW 



277/tfTW 
906-PATA 



604*LI 





497/BQZ 


503/BNE 


5Q9-EQL 






Mjoa 


130/RfF 


55P/LI 








Miei 














11S/REF 


3SS/MTB 


401 /L! 






MILL 














131/RpF 


151 /GEN 


286/QEN 


P94/GEN 


550/LI 


Mae 














1K6/REF 


S9R/6EN 


301/QEN 


496/LM 


507/GEN 




54S/LI 










MlSI 














11^/REF 


26P/LI 


275/LW 


308/DATA 




*iuc 














116/REF 


249/GEN 


307/QEN 


3Q9/GEN 


314/GEN 




S2P/LI 










MAXCMBX 














57/DeF 


2ln/STW 


354/ST* 


61X/STW 


80?»EQU 


MQDE 














59/DEF 


83n»E0U 


831/EQU 






HVSTMT 














590/BaL 


604/BAL 


61S-LW 






NCHAR 














5P/DEF 


668/M7W 


683/^TW 


803»EQU 


804/EQU 


NPAQE 














6?/D£F 


804-EQU 


805/EQl 






NXCMD 














183/8CS 


243/B 


846/BGEZ 


?60*LW 


283/BE 




*2l/B£Z 










NXCMOl 


263-EQU 


28n/BE 








ONLINE 


194/BCS 


19*«L8 








©PNFPT 


6?/DEF 


86A«EQU 








6UT$ARG 














107/DPF 


427/STW 


847«EQU 


848/EQU 




patch 













517/LI 



37Q/B 



533/^»EN 



392/GEN 408/t?EN 
803/EQU 



416/&LE 





136/DfF 


137.CSECT 










PCL 
















P-DSECT 


13Q/USECT 


146/USECT 


158/USECT 


181/USECT 


188/USECT 




257/USECT 


273/USECT 


291/USECT 


296/USECT 


320/USECT 


398/USECT 




413/USECT 


5o«/usect 


546/USECT 


S70/USECT 


950/ySECT 


951/ENO 


PClt 


273/BL* 


32*»EQU 










PCI? 


378/BNE 


3S.1*BAL 










PC13 


203/BL* 


229/BGE 


245-MTW 








PCL# 
















324/BLE 


326/B 


332/Br 


3Si*E0U 






PCL*8 


371/B 


373-ECU 










PCL5 


293/BE 


321»EQU 










PCL6 
















379»EQU 


4B9/B 


462/B 


463/B 


466/3 


467/B 


PCL7 


340/BE 


34?/BE 


347-EQU 








PCL8 


231/BCS 


23A-EQU 










PC182 


226..EGU 


37S/BNEZ 










PCL88 


223/B 


24P-MTW 










PGMS6 


149/CAUl 


151«QEN 










PLSECT 
















3-CSECT 


Ui/USECT 


150'USECT 


5 79/USECT 


186/USECT 


248/USECT 




26S/USCCT 


28B/USECT 


293/USECT 


300/USECT 


391/USECT 


407'USECT 




506/USECT 


53P/USECT 


566/USECT 








PRFVACT 
















62/DEF 


764/STW 


805-EQU 


806/EOU 






prntbuf 
















66/DEF 


8l!5|»ECU 


814/EGU 


862/EGU 







487/ttNE 



10 



PRTBUF 












61/DEF 


8RR/EQU 


87g.EQU 


875/EQU 


PRTBUF4 


64/DEF 


85«*EQU 






PRTERR 












113/PEF 


240/BAL 


417/BaL 




RDACCT 


74/DEF 


861»EQU 






RDFPT 












63/DEF 


8qa«EQU 


807/EGU 




RDTBL 












86/DpF 


434/STW 


935»EGU 




RFCNUM 












66/0EF 


8t4»EQU 


815/EQU 




PECSIZE 












76/DEP 


837-EQU 


838/EQU 




RfTTURN 


78P-STW 








PPVA 












684/BeZ 


691/BEZ 


693/BNEZ 


A97/BL 


PEVB 


70P/»U 


72?*CI 






RfTVC 


64?/8E 


6*7«MTW 






REVIEW 












93/DFF 


46«5/BAL 


63#»PSW 




RpVRP 


129/RfP 


914/CI 






PFVl 


6<t#/BNEZ 


66S*BAL 






REV? 


707/BF 


7lo»MT* 






RfV3 












667/BQ 


68P/BG 


704/BGZ 


715/BlZ 


«EV* 


706-Cl 








PEVg 











70l»EQU 



717. PLW 



721/B 



7a3/«E 



REV6 


660/BNiE 


69*/BG 


719-LT 


725/B 


646/BF 


679/BNE 


703-MT^ 




REV7 


69S-IB 


70H/BDR 






REVg 


644/BE 


6gn«BAl 






RFV9 


669/8E* 


677-LW 






Rfw 












124/REF 


457/BAL 


458/BaL 




RSSAVE 












80/DEF 


821 -EGU 


822/EQU 




RSTACK 












5*/DeF 


787-EQU 


791/EQU 


792/EQU 


SAVCMBX 












73/DEF 


650/STW 


652/ST^ 


815»E0U 


SCRATCH 












9«/0EF 


824»EQU 


825/EQU 




SELECT 












59/DEF 


83P-EQU 


833/EQU 


861/EQU 


SEQNUM 


97/DEF 


873»EQU 






SEQUENCE 










59/DEF 


831»EQU 


S32/EGU 




SFACCT 












8^/DeF 


431 /STW 


812-EQU 


813/EQU 


SFARG 












84/OEF 


664/STh 


940-EOU 




SFCNT 


84/DEF 


94R-EQU 






sfdev 












85/DEF 


639/STW 


661/STW 


9g9*EQU 


SFTEMP 












94/DEF 


823-EQU 


824/ECU 




SPE 


12*/REF 


460/BAl 







IX 



816/EQU 



SPF 



STACK 



I'd 



124/REF 



459/BAL 



170'L! 


9ga»RES 


924/EGU 


925/EQU 


926/EQU 


927'EQU 


928/fcQU 


929/EQU 


930/EGU 


931/EQU 


933/EQU 


93S/EQU 


936 / EQU 


937/tQU 


93P/EQU 


939/EQU 


94Q/EQU 


941/EQU 


942/EQU 


943/EQU 


944/fc.Qu 


94B/EQU 


94*/EQU 


947/EqU 


948/EQU 


949/EQU 






strofpt 














8?/DeF 


875»EQU 












svnflag 














69/DFF 


791-EQU 












SYNSNYM 














81/OEF 


82P-EQU 


823/EQU 










TABS 














464/BaL 


787-LCI 












tabsend 














750/^F 


755»STW 


7S8/B 


760/B 








TABSERR 














743/8NE 


7S7-LI 












TABSERPP 














737/8F 


759-LI 






,> 






TABSET 














79/DfF 


729/LI 


753/STW 


820*FQU 


821/EQU 






TABS? 














736-C! 


74A/BE 












TELCSNT 














24P/NTW 


374/MTW 


42Q/MTW 


844*EQU 


84S/EQU 






TERM 














58/DEF 


640/LW 


677/LW 


702/LW 


746/L.W 


8q7"EQU 


808/tQU 


TEPMPCL 














268/DATA 


269/DATA 


455/8 


527»EQU 








TFRMPCL? 














419/BE 


51A.EQU 












TLABEL 














69/DFF 


949. EGU 












TLBLSIZF 














74/DFF 


864»EQU 













T8ARG 

T8FILE 

T8PPAQE 

T8SWT 

T8VER 

TRANSACT 

TXTABBPT 

TXTRMPCL 

UNACCT 

UNBADR 

UNPRINT 

UNTBL 

VERSION 

WE8F 
WRTACCT 

*RTBL 

WRTFPT 

#DELIM 



63/DEF 
93/DEP 

505/CAti 
60/DEF 
6F/DFF 
5B/DEF 

541 /Data 

530/LB 
8«/DEF 

1Q4/DEF 

12*/RFF 

87/DEF 

S-EQU 
144/081 

909/oe 

18A/REF 
74/DeF 
8^/DEF 
63/DE' 7 



8o«»EQU 

439/STW 

S07»QEN 

8Q9»EGU 

811-EQU 

227/BAl 

544»TEXT 

53R/DATA 

853-EQU 

92S.EQU 

4QP/BAL 

437/STW 

71./D61 
175/D9 

461 /BAl 
86P»EQU 
43R/STW 

8in»EQU 



8Q9/EQU 

636/MTW 

513/CALi 

61Q/EQU 

812/EQU 

376/BaL 

538-TFXTC 
854/EGU 



948-EQU 

117/D61 
306/De 



863/EQU 
936-EGO 
811/EGU 



687/STM 
712/CAli 



762 *K5> W 



119/081 
329/00 



689/STM 
71A/CAll 



696/CB 



13 



933-fcQU 



384/08 



128/D^l 
519/D8 



142/061 
905/^81 
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75/DEF 817*EQU 818/EQU 



HOl 



13*45 SEP 08* 


♦75 






PCL 


1 




#M# 


PCL 


EXECUTIVE ReUTINE 8F PCL PR6CESS9R 


?. OP 00000 




PCL 


DSEXt 


1 


3 03 00000 




PLSECT 


CSECT 


1 



l£> 



Hoi 13*45 SEP 08# » 75 
4 

B QOOOGCQ* 

6 00000000 

7 OOOOOOOX 

8 OOOOOCO* 

9 00000003 

10 ooooooo* 

11 0OQO000S 

12 oooooco^ 

13 0000000' 

14 0000000* 

15 ooooooo* 

16 0000000* 

17 0000000* 
lg OOOOOOOX 

19 OOOOOOOW 

20 OOOOOCO^ 

21 0000000* 



PCL 



16 





PAGE 




VERSJ9N 


eQu 


2 


RO 


EQU 





Rl 


equ 


1 


R2 


EQU 


2 


R3 


EQU 


3 


R4 


EQU 


4 


R5 


EQU 


5 


R6 


EQU 


6 


R7 


EQU 


7 


SRl 


EQU 


8 


SR2 


EQU 


9 


SR3 


EQU 


10 


SR4 


EQU 


11 


01 


EQU 


12 


D2 


EQU 


13 


03 


EQU 


14 


D4 


EQU 


15 



l«8PMjj?iUTS 



HOI 



13145 

22 

23 



S&P 08# '75 



PAGE 
TITLE 



PCL 



17 



IPCL* 



"01 



13*45 

24 

25 

26 

37 

28 
29 
30 
31 
32 
33 
34 
35 
36 

37 

38 
39 

40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 



SEP 08# *75 

ooooocoi 



PCL 



1** 



*S# 



* 
*P* 

#P# 
#P# 
#P* 

#p# 

#P# 

#P# 

« 

*D8* 

#P# 

# INPUT 



SYSTEM 

SYSTEM 

NAME! 



SIG7 

BPM 

PCL 



PURF^SFl PCL PR8VIDES F8R PR8CESSING 8F USE* C8MM A NDS WHICH 

DIRECT INF9RMATI&N MSVEMgNT BeT*eE n INPUj AND eUTPUj 
OEVlCESt THE EXECUTIVE RATINE IS THE MAIN DRIVING 
R8UTINE F8R THE PCL SUBSYSTEM, 



QUTPUT 



ARGBUF ARGUMENT BUFFER 
NCHAR LENGTH 8F CURRENT ARGUMENT 
TERM TERMINAT8R 8F CURRENT ARGUMENT 
D2 MAXIMUM ERR8R SEVERITY 
PCL C8NTRL C8MMANDS FR8M TTYS 8R CR 
RO ZFR8 REGISTER 



* 
#FIN* 



Dl CURRENT ACTI8N C9DE 

PREVACT PREVI9US ACTI8N C8DX 

CMDBUF C8NTR8L C8MM A N0 BUFFER 

CMBX •CMDBUF* INDEX 8F FIRST ARGUMENT 

MAXCMBX MAXIMUM .CMDBUF* INDEX 

DUGaDD INITIALIZED DIAGN8STIC ADDRESS 

CALL T8 APPROPRIATE C8MMAND PR8CESS8R 



DEF TRANSACT 

DEF RSTACK 

DEF CMDBUFjCMBX, MAXCMBX 

DEF ARGBUFFj NCHAR, TERM 

DEF ARGTBLjDEVICe # FILE#C8DEjM8DEj SEQUENCE, SELECT 

DEF DVLARGjT8SWT 



Hoi 
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61 

62 

63 

64 

65 

66 

67 

OS 

69 

70 
71 
72 
73 
74 
75 
76 

77 
78 
79 

80 
81 
8? 
83 
84 
85 

86 
87 

88 
89 
90 
91 
92 
93 
94 
95 
96 
97 



SEP 08* '75 



03 00000 



DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
D81 
DEF 

DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 
DEF 



PCI 
PRTBUFjERRFLAQjIBERR 

DC8ADDjINSWTjJ9BUF,NPA<!EjePNFPT,PR£VACT 
T6ARG,RDFPTjWRTFPTjFPARAM 
ARQBUF4#PRTBUF4jERRFL64 

PRNTBUF#RECNUM 
FPTC9NSL 

£RCMDBUF,CMBXDIFF 

TLABELjSYNFLAG 

BUFSIZE 

VERSI9N«2 

FPTPR9MT 

SAVCMBX 

ATTRB,RDACCTjWRTACCT,TlBLSlZE 

*DEIIM 

C!BU3B0#ClBlEFT#ClBTBTALjClVieRPiRECSlZEjexSEQ 

CeBUSED#C6BLEFT-.CBW8RD 

KEY/CARDSEQ 

TABSET 

RSSAVE 

SYNONYM 

CePYSTDFjSTRDFPT 

LINEN© 

SFARQjSFCNTjSFACCT 

SFDEViEATTRB # CBPYSK,DATETBl 

RDTB^wRTBL 

EXTBLjUNTBL 

EXACCTjUNACCT 

L!NE$N8#11N£$N&1 

L!NE$N©2 

DENSITY 

DEL*CT 

FRBMFHEjTBFlLE* REVIEW* DELETEF 

SFTEMP 

SCRATCH 
QRANCNT 
SEQNUM 
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98 

99 

100 
101 
102 
103 
104 
105 

106 
107 
108 
109 
110 
HI 
11? 
113 
114 
115 
116 
117 
118 
119 
120 
181 
122 

124 
125 
126 
127 
128 
129 
130 
131 
132 

133 
134 



SEP 08# <75 



03 00000 
03 00000 



03 00000 



*S* 



03 00000 





PCL 


DEF 


cepyPMy 


DEF 


FR&MCMBX 


DEF 


LISTCMBX 4 LISTTERM 


DEF 


ANSBLK 


DEF 


BlKBUFF 


DEF 


BLKSUE 


DEF 


UNBADR 


DEF 


CGNTINUE 


DEF 


EXPIRE 


DEF 


!N*ARG,8UT$ARG 


DEF 


DEV$lN#DEV$aUT 


DEF 


DEVtSAV 


DEF 


DEV$SAV1 S!DR# PRE7«0744 


DEF 


CMBXHLD S I DR#SI 37*11335 


PEF 


OETARQjERRSRjPRTERRjCePYTeiFlXARG 


REF 


C6PYALL 


REF 


MIEI 


REF 


M!SIjMlUCiMJL8 


D81 


VFRSI8N*2 


REF 


Jf JIT 


oei 


VERSI8N11 


DEF 


JIJIT 


REF 


DELETEALjDEIETE^lIST 


D6l 


VERS18N-2 


REF 


JlCCBUF 


REF 


REW*SPF#SPE#WE8F 


REF 


TNTARQ 


REF 


UNPRINT 


REF 


ADDFILEN 


D81 


VERSI8Nia 


REF 


REVRP,UST26 


REF 


MID8 


REF 


MlLL 


REF 


DEVTRAN 


REF 


jb;ccars BYTE C8UMT 8F jjccbuf 



2P 



HOI 



131 
135 
136 
137 

138 
139 

HO 

1*1 
14? 
143 
144 
145 
146 
147 

148 
149 
150 
151 
15? 
153 
154 
155 
156 
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157 



158 
159 
160 



06 00000 
06 00000 
06 00032 

02 00000 
0? 00001 

03 00000 
03 00000 
03 00001 

03 00001 
0? 00001 
0? 00002 
0? 00003 
OP 00004 
03 00001 
03 00002 
03 00003 
03 00004 
03 00005 
03 00006 

03 00007 
03 00008 

03 00009 
03 OOOOA 
03 OOOOB 
03 OOOOC 
03 OOOOD 
03 OOOOE 
03 0000? 
03 00010 
03 00011 
03 00012 
03 00013 
02 00004 



# 
PATCH 



0^8onooo 03 



03000002 A FPTGP 

*S# FPTGP 

21800002 A 
6*100005 
04100001 03 

HOOOOOO X PGMSG 
3*000000 A 
0U000006 

0U000031 A 
OOOOOOOO A 
4UD7C3D3 A 
4UC3C105 A 
DSD6F340 A 

Ct»E7C5C3 A 
E4E3C540 A 
E4D5F3C9 A 
D340C3D6 A 
D*C54QD3 A 
C»D4C9E3 A 
4UC9FP40 A 
C9D5C3D9 A 
CSC1F2C5 A 
C4404040 A 

04900002 A 



PCX 

def patch 

CSECT 1 

RES 50 

USECT PCL 

CALliS FPTGP 

USECT PLSECT 

D51 VERSJ&Nfg 

DATA Xt08000002» 

061 VERSI8N-1 

DATA XfQ8Q00l00» 

USECT PCL 

Cl#SRi 2 

BGE BaSEReG 

CALl#l PGMSG 

USECT PLSECT 

GEN#8#7j17 X»U»jO*M|LL 

DATA Xt340000QO» 

DATA **3 

DATA 49 

DATA o 

TEXT t PCL CANN9T EXECUTE 
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PROCEDURE PATCH AREA 



REQUEST 2 PAGES 

REQUEST ALL 9F MEMORY 

MUST HAVE AT LEAST 2 PAGES 

PRINT MESSAGE INDICATING C9RE LIMIT 



TEXT 



?UNTIL C8RE LIMIT IS INCREASED! 



USECT 
MJERR 



PCL 



HOI 
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t75 






PCL 


1.61 


02 


00005 


3*700009 


A 


BASEREG L*,R7 


SR2 


163 










# 




163 


0? 


00006 


2*looiFF 


A 


LI#Rl 


511 


164 


0? 


00007 


28000000 


A 


L!#«0 





165 


02 


00008 


B&020007 


A 


STWjRo 


#R7/Rl 


166 


0? 


00009 


6*100008 




BDR#R1 


«*1 


167 


02 


OOOOA 


25800008 


A 


SLS#SR1 


11 


168 


02 


00008 


2U8FF80O 


A 


AIjSRi 


•20*8 


169 


02 


ooooc 


3S8F.0C04 


A 


STWjSRi 


BUFSIZE/R7 


170 


0? 


00000 


2*100001 


07 


LI#R1 


STACK 


171 


02 


OOOOE 


3&1EOO00 


A 


STW#R1 


0*R7 


178 


02 


ooqqf 


3*l0OlFC 




LW#Rl 


•X»01360OO0' 


173 


02 


00010 


3*1E0001 


A 


STWjRi 


1jR7 


174 










* 




175 




00000001 




D8 


VERSI8N"2 


176 


02 


00011 


2*100400 


A 


LliRl 


4#C0NTlNUE 


177 


02 


00012 


3&1E00EA 


A 


STWjRi 


C©NTPTR#R7 


178 


02 


00013 


0*100013 


03 


CAL1#1 


FPTPROMT 


179 


02 


00014 






USECT 


PLSECT 


180 


03 


00013 


2<*00004C 


A 


FPTPROMT GEN#8*16 


j8 XtgCijOi 


181 


03 


00014 






USECT 


PCL 


182 


02 


00014 


7U200000 


X 


LC 


JIJIT 


183 


02 


00015 


6*40004F 




BCSj4 


NXCMD 


184 


02 


00016 


32000007 


A 


LN#RO 


R7 


185 


02 


00017 


0*800014 


03 


CALli« 


FPTlNT 


186 


02 


00018 






USECT 


PLSECT 


187 


03 


00014 


0*0001F4 


02 


FPTINT GEN#8*7il7 X»OEt 


188 


03 


00015 






USECT 


PCL 


189 


02 


00018 


2*000000 


A 


LI#R0 





190 










« 




191 


Op 


00019 


22400G5D 


A 


II#R4 


CMDBUF 


19? 


02 


0001 A 


30400007 


A 


AWjR4 


R7 


193 


02 


0001B 


7U20O000 


X 


LC 


JJ JIT 


194 


02 


OOOlC 


6*800020 




BCS#S 


ONLINE 


195 


02 


0001D 


2*200050 


A 


LbR2 


80 


196 


02 


OOOlE 


2*l0004F 


A 


LI#Rl 


79 


197 


02 


OOOlF 


6*000023 




B 


*+4 



DEFINE BASE REGISTER 
CLEAR USER STORAGE 



CONVERT PAQES T8 BYTES 
RESERVE PAGE FOR DATA 
INITIALIZE I/O BUFFER SUE 
SET UP STACK POINTER 

SPACE COUNT 310 w ORDS 



INITIALIZE CONTINUATION PTR 
SET PROMPT CHAR 



2* 



t <i 



DO WE HAVE A GHOST 

INDEED WE DO • 1ST COMMAND 

YES-SET BREAK CONTROL 



jOjINT 



RESTORE RO 

ADDRESS OF CMDBU* 

GET C9UNT FROM JtPUF IF ONLINE 

POINT TO LAST BYTE 
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19* 


0? 


00020 


199 


02 


00021 


200 


02 


00022 


801 


02 


00023 


202 


02 


00024 


203 


02 


0002S 


204 


02 


00026 


205 


02 


00027 


206 


02 


00028 


207 


02 


00029 


208 


02 


0002A 


209 


02 


00028 


210 


02 


0002C 


211 


02 


00020 


212 


02 


0002E 


213 


02 


0002F 


214 


02 


00030 


d m *** 


02 


00031 


216 


02 


00032 


217 


02 


00033 


218 


02 


00034 


219 


02 


00035 


220 


02 


00036 


221 


02 


00037 


222 


02 


00038 


223 


02 


00039 


224 


02 


0003A 


225 


02 


00038 


226 




02 


227 


02 


0003C 


228 


02 


00030 


229 


02 


0003E 


230 


02 


0003F 


231 


02 


00040 


232 


02 


00041 


233 


02 


00042 


234 


02 


00043 



175 

7*200000 X ONLINE L8#R2 

3*100002 A LWjRi 

2U1FFFFE A Al/Rl 

32500002 A LW#R5 

20100000 A Al#Rl 

6»l0004C BLZ 

7*320000 X 18#R3 

F9320004 A STB#R3 

64100026 BORjRl 

72300000 X L8#R3 

F5300004 A STB#R3 

20200173 A AI#R2 

3^2E008D A 5TW,R? 

222Q0174 A LI*R2 

392E005C A STW,Rg 

3S2E00F6 A STW#R2 

22000000 A Lli02 

2*100004 A Ll#Rl 

30100007 A AW#Ri 

2*200023 A U#R2 

323001FD LW#R3 

B»34000l A STW#R3 

64200035 BDR#Rg 

324Q0005 A LW#R4 

6 A B oil9 BAL#S*4 

6»00004A B 

0*000000 A NOP 

0*000000 A NOP 
0003^ PCL82 EQU 

6 a 8qoiCA BALjSR4 

21C0O00F A CI#D1 

6*1Q004C BGE PCL3 

70200000 X LC JtUIT 

6*800045 BCS # 8 PCL8 

2*100050 A UXjRI CmOSUf 

30100007 A AM#Ri R7 

2*200050 A LI#R2 80 



PCL 
UBjCCARS 
R2 
• 2 

R2 



PCL3 

JlCC8UF#Ri 

#R4#R1 

$•2 

JfCCBUF 

*R4 
4#CM0BUF.i 

MAXCMBX#R7 
4*CMDBUF 

CMBX,R7 

CMBXHLD#R7 



ERCMDBUF.t 

R7 

35 

it t 

#R1#R? 

$•1 

R5 

C6NTCNK 

PC188 



TRANSACT 
XtF» 



23 



SKIP iqD» CHAR IF" ONLINE 
COPY COUNT 



COPY TELL COMMANP TO CmDWUF 
COPY FIRST BYTE »F TEL COMMAND 
MAX COMMAND BUFFLR INDEX 

INITIALISE COMMAND BUFFER INDEX 

SAVE INITIAL VALUE OF CMBXt 
CLEAR MAXIMUN SEVERITY 



BLANK COMMAND LINE ERReR POINTER 

GET LINE LENGTH 
TEST FOR CONTINUATION U^E 
CONTINUED LINE RETURN 
LAST OF CONTINUATION 
ERROR RETURN 

GO TRANSLATE FIRST VERB 
WAS COMMAND 'PCL f #» PCL I 
YES«READ FIRST COMMAND 

DONT ECHO FIRST COMMAND IF ONLlNh, 



HOI 



13 
338 

337 

339 

340 
341 

343 

343 

344 
345 

346 
347 
348 

349 

350 
351 
353 
353 
354 
355 
356 

357 
358 
359 
360 
361 

363 
363 
364 
365 
366 
367 

368 
369 
370 
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03 00044 0*100035 03 

03 000** 



03 00045 
0? 00046 
03 00047 
03 00048 
03 00049 
03 0004A 
03 0004B 

0? OOO^C 

0? 0004D 
03 0004E 
0? 0004F 
03 00015 
03 00016 
03 00017 
03 OOOU 
03 00019 
03 0001A 
03 OOOlB 
03 OOOlC 

03 0001D 
03 0001E 



0? 0004^ 
03 00050 
03 00051 
03 
0? 00053 
0? 00053 
03 0001E 
03 QOOlF 
03 00030 
03 00031 
03 00033 



6*B0O0AC 
31D0OC01 A 
6*300049 
6AB0OO0O X 
6*000108 

331E00EC A 
6&00OC4F 

33000000 X 

6S10004F 
0*100015 03 

UOOOOOO X 
3*000000 A 
OUOOOOIA 
OWOOOOOD A 



00000000 
D7C3D340 
C3F0F140 
C»C5D9C5 
1^404040 



32100007 A 
80100050 A 
22600000 N 
00052 

OMOOOIE 03 

30000006 A 
F*000010 A 
00000104 03 
00000104 02 
800000C1 A 



PCL8 



PCL88 

# 
PCL3 



FPTHERE 



NXCMO 



CAL1#1 

EQU 

BALjSR* 

CIi03 

BLE 

BALiSR4 

B 

MTWji 
B 

MTWjO 

BQE4 

CALIj 1 

USECT 
GEN#8j7# 

DATA 
DATA 
DATA 
DATA 
TEXT 
TEXT 
TEXT 

USECT 
FIN 



PCL 
FPTC9MD 
* 

ACTI9N 

1 

*+3 

PRTERR 

ENDPCL 

TEtC0NTiR7 

NXCMD 



ECH8 IF BATCH 
Q8»DB THE CBMMANP 

test err severity level 
n8 messages t8 p«int 
ves-print the messages 

CL8SE DCBS BEFORE RETURN T8 TEL, 

SET FLAG FBR TEt C8NTINUATI8N 
GET NEXT LINE 



3* 



JIJIT 
NXCMD 
FPTHERE 
PLSECT 
17 Xfll'iO#M|UC 
Xf 34000000' 
♦ ♦3 
13 


tPCL t 
tCOi f 
tHEREN* 



8NLINE MBDE 

NBiiRREAD FIRST COMMAND 
PRINT tPCL HERE* 



PCL 



LWjRi R7 

AliRl CMDBUF 

LIiR6 M|SI 

NXCMD1 EQU * 

CALlil FPTC9NSL 

USECT PLSECT 
FPTC8NSL GEN#8*7#17 Xt9Qfj0iR6 

DATA XtF40000^0 , 

DATA TERMPCL 

DATA TERMPCL 

Pit #R1 



READ NEXT C8MMANP 



READ COMMAND 



TERMINATE 
TERMINATE 



8N 
8N 



ERR0R 
ABNORMAL 
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271 


03 


00023 


0U0OO08C 


A 


272 


03 


00024 


oooonooo 


A 


273 


03 


00025 






274 


0? 


00053 


3*000000 


07 


275 


02 


00054 


32200004 


N 


276 


0? 


00055 


2*20OO6F 


A 


277 


02 


00056 


3300OC00 


X 


27* 


0? 


00057 


6*100067 




279 


02 


00058 


21200078 


A 


280 


0? 


00059 


6*»300052 




281 


02 


0005A 


BS300001 


A 


282 


0? 


0005B 


3l30ftlFE 




283 


02 


0005C 


6*30004F 




284 


02 


0005D 


0*100025 


03 


285 


02 


0005E 






286 


03 


00025 


HOQOGOO 


X 


287 


03 


00026 


3*000010 


A 


288 


03 


00027 


8^000001 


A 


289 


03 


00028 


80000002 


A 


290 


03 


00029 


oooooooo 


A 


291 


03 


0002A 






292 


0? 


0005E 


0*l0O02A 


03 


293 


02 


0005F 






294 


03 


0002A 


2*000000 


X 


295 


03 


0002B 


ouoooooo 


X 


296 


03 


0002C 






297 


02 


0005F 


21800001 


A 


298 


02 


00060 


6*300062 




299 


02 


00061 


0M0OO2C 


03 


300 


02 


00062 






301 


03 


0002C 


11000000 


X 


302 


03 


0002D 


3*000010 


A 


303 


03 


0002E 


80000001 


A 


304 


03 


0002F 


80000002 


A 


305 


03 


00030 


oooooooo 


A 


306 




oooaoooi 




307 


03 


00031 


2*000000 


N 



PCL 
DATA 140 
DATA o 

USECT PCI 
STWjRq break 

LW#R2 MfSI+4 

SLS#R2 «17 

MTW#0 JIJIT 

BIZ PCLl 

CI#R? 120 

BE NXCMDt 

LW/R3 «R1 

CW # R3 •' PCU 

BE NXCMO 
CALl^l FPTC9MD 
USECT PLSECT 
FPTC8MD GEN#8*7#17 X»lH*o*M|LL 
DATA X»34000010 f 
PZE #R1 

PZE »R2 

DATA o 

USECT PCL 
CAL1M FPTC9MP 
USECT PLSECT 
FPTC8MP GEN,8*7#17 XtpB 
GENii5#17 

USECT PCL 
CI*SRl 1 

BE PCL5 
CALl#l FPTC8MD1 

USECT PLSECT 
FPTCeMDi GEN, 8*7*17 XtiitjO'MjLe 

DATA X»34Q000lO f 

PZE #R1 

PZE #R2 

DATA o 

D8 VERS19N-2 
FPTC6MP2 GENjg,?* X»2B»,MJUC 



SI ZE 

N6 BYTE DISPLACEMENT 

CLEAR BREAK 

GET C8UNT 
BATCH M8DE 

N8 

BINARY CARD READ 

YES^SKIP IT 



BATCH PCL C9MMAN0 
PRINT THE BATCH C8MMAND 



2§ 



SIZE 

N8 BYTE DISPLACEMENT 



COMPARE M;LL AND MiL© 



* j0*MjLL 
0iM!L8 



SAME DEVICE 

YES 

N8«PRINT C8MMAND AGAIN 8N MIL8 



BUFFER 

SIZE 

N8 BYTE BFF SET 



Hoi 



13145 SEP 08/ 
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PCL 


308 


03 


00032 


ouoooooo 


N 


DATA 


M|S! 


309 


03 


00033 


lioooooo 


N 


FPTCSMDa GEN, 8,?* 


Xi 11 t *M|UC 


310 


03 


00034 


34000010 


A 


DATA 


Xf 34000010 • 


311 


03 


00035 


80000001 


A 


Pit 


«R1 


312 


03 


00036 


80000002 


A 


Pgt 


#R2 


313 


03 


00037 


ouoooooo 


A 


DATA 





31* 


03 


00038 


lioooooo 


N 


FPTC8MD3 GEN*8,P4 


X»U»jM|UC 


315 


03 


00039 


3*000010 


A 


DATA 


X*3*000010 f 


316 


03 


0003A 


00000013 




DATA 


FPTPR8MT 


317 


03 


00038 


oooooooi 


A 


DATA 


1 


318 


03 


0003C 


00000003 


A 


DATA 


3 


319 










FIN 




320 


03 


0003D 






USECT 


PCL 


321 




02 


0Q068 




PCL5 ECU 


$ 


322 


0? 


00062 


202Q0001 


A 


AliR2 


1 


333 


02 


00063 


21200049 


A 


CI#RP 


73 


324 


0? 


00064 


6*20007A 




BlE 


PCL* 


325 


02 


00065 


282000*9 


A 


LI#R2 


73 


326 


02 


00066 


6*00007A 




B 


PCL* 


327 










« 




328 




02 


0006/ 




PCL1 EQU 


$ 


329 




ooooocoi 




DO 


V£RSI9N«2 


330 


02 


00067 


0*100031 


03 


CALlM 


FPTCSMP2 


331 


0? 


00068 


21800001 


A 


CI#SRl 


1 


332 


02 


00069 


6*30007A 




BE 


PCL* 


333 


02 


0006A 


28*00050 


A 


LI/R4 


CMOBUF 


334 


02 


0006B 


30*00007 


A 


A!«jR4 


R7 


335 


02 


0006C 


25*00002 


A 


SL$'R4 


2 


336 


02 


0006D 


30400002 


A 


AW#R4 


R2 


337 


02 


0006E 


204FFFFF 


A 


Al#R4 


•1 


338 


02 


0006F 


78380000 


A 


IB#R3 


0*R* 


339 


0? 


00070 


21300015 


A 


CIjR3 


XitSf 


340 


02 


00071 


6*300078 




BE 


PCL7 


341 


0? 


00072 


21300000 


A 


CI#R3 


XfOOl 


3*2 


02 


00073 


6*300078 




BE 


PCL7 


343 


0? 


00074 


20400001 


A 


Al#R4 


1 


344 


02 


00075 


28300015 


A 


UI/R3 


Xtl5* 
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CHARS/CARD PLUS t>N£ 

COMPARE W«UC AND MlSI 
SAME DEVICE 

BYTE ADDRESS 8F CQMMAND BUFFER 

GET L6C eF LAST LHAR 

TEST IF LAST CHAN 1$ CR 
YES 

YES 



Hoi 



13U5 i 


SEP 08* 


'75 




345 


0? 


00076 


7»380000 


A 


346 


0? 


00077 


20200001 


A 


3*7 




02 


0007* 




348 


0? 


00078 


0*100038 


03 


349 


02 


00079 


# l0O033 


03 


350 










351 




02 


0007* 




353 


02 


0007A 


3**00002 


A 


■*S w »3 


02 


0007B 


2U200173 


A 


354 


02 


0007C 


3&2EO08D 


A 


355 










356 


02 


0007D 


2*200174 


A 


357 


02 


0007E 


3&2E0C5C 


A 


358 


02 


0007F 


3*2EooF6 


A 


359 


02 


00080 


3S0E0C81 


A 


360 


02 


00081 


3^0E008C 


A 
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02 


00082 
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A 


362 


02 


00083 


2*100004 


A 
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02 


00084 


3U100007 


A 
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02 


00085 


2*200023 


A 


365 


02 


00086 


3*300lFD 




366 


02 


00087 


BS340C01 


A 


367 
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00088 


6*200087 




368 










369 


02 


00089 


6*800119 




370 


02 


0008A 


6*00004F 




371 


02 


0008B 


6*000080 




372 


02 


0008C 


6*>0OO0A4 




373 




02 


0008^ 




374 


02 


00080 


3$OEftOEC 


A 


375 


02 
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6*30003C 




376 


02 
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377 
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21CQO000 


A 
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02 
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6^300095 
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02 
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02 


00092 


2*100012 


A 


381 


02 


00093 


6 A »00000 


X 



PCL7 



PCL4 



PC142 



PCL6 



STB#R3 

A!#R2 
ECU 

CALlM 
CALlM 

FIN 
EQU 
LWjR 4 

Al#«2 

STWjRp 

LI#R2 

STW/Rg 

STW,R ? 

STW#Ro 
STWjRo 
LI#D2 

Ll'Rl 

AW#Rt 

LI1R2 
LW#R3 
STW#R3 

BDR*R2 

BAl#SR4 
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B 

B 

EQU 
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CZjDi 

BNE 

EQU 
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pcl 
o#R4 
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FPTC0MD3 
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MAXCM8XjR7 
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TRANSACT 



PCL2 

$ 

18 

ERROR 
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PCL2 BAUSR4 
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Q0.D9 
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DB 


VERSIBNf2 




385 
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07 


MTW#«i 


BREAK 


BREAK 
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6*200CA4 




BUZ 


ENDCMDl 


N8 
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A 


LI#R2 
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0? 
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73040016 


N 


MTB#o 


*!EI+22*R2 


FILE 


389 
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0009A 


6*30OQA4 




B&Z 


ENDCMDl 


NB 


390 


0? 


0009B 


0410003D 


03 


CAU#1 


FPTFILHD 


PRINT 
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0? 


0009C 
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PLSECT 
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03 


0003D 
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X 


FPTFILHD GEN,8j7j 
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03 


0003E 
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A 
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X» 34000000 f 
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03 


Q0Q3F 
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DATA 
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395 


03 


00040 
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A 


DATA 
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396 


03 


00041 


ouoooooo 


A 


DATA 







397 


03 


00042 


D3C1F2E3 


A 


TEXT 


flAST FILF N 
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03 
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4UC6C903 


A 










03 


00044 


Cb40DSCl 


A 










03 


00045 


04C5407E 


A 










03 
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4P404040 


A 
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A 


LI#D3 
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3UE0O007 


A 


AVK/D3 


R7 


BUFFE 
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0? 


0009E 


2^100017 


N 
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0009F 
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X 


BALjSP4 


UNPRINT 
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A 


AI#R2 
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OOOAl 


2*300015 


A 
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X»15» 




405 


0? 


000A2 


F&34OO0E 


A 


STB#R3 


#D3#R? 




406 


0? 


0OOA3 


0410H047 


03 


CALl^l 


FPTFILNM 


PRIN 


407 


0? 


000A4 
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PLSECT 




408 


03 
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X 
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409 


03 
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A 
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03 
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A 
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#D3 
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03 
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8U000002 
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DATA 
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02 


0O0A4 
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02 


000A5 
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417 


02 
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0O0A7 
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A 
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02 
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A 
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02 
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0*900001 


A 
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02 
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EGU 
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0? 
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A 


PSW#SR4 
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02 
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3&0E0QF0 


A 


STW#RO 


427 


02 


OOOAE 


3$OEooFl 


A 


STW#Ro 


428 


02 


OOOAF 


3»0EO0F2 


A 


STW#Ro 


429 


02 


OOOBQ 


3&OEnoF3 


A 


STW#R C 
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02 


OOOBl 


3&0EO0E6 


A 


STW#R0 


431 


C? 


000B2 


3t>0EO0B2 


A 


STWjRo 


432 


02 


000B3 


3^0EO0FA 


A 


STWiRo 
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02 


000B4 


3»0E00FB 


A 


STW#Ro 
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02 
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07 


STW#Rc 
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0? 


0O0B6 
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07 


STW#R0 
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02 


0O0B7 
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07 
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0? 
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3^000lC2 


07 


STW#Rq 


438 


0? 
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07 


STWjRc 


439 


02 


OOOBA 
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07 


STW#Ro 
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02 
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07 
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02 
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07 
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02 
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07 
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02 


OOOBE 
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02 
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07 
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02 
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BORjRi 
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OP 
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A 


LWjRI 


447 


02 
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6?0200C4 




EXU 


448 


02 


0O0C3 
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A ENDCMD 
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449 


02 


0O0C4 
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A 


B 
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4 
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RDTBL 

WRTBL 

EXTBL 
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FR8MFIUE 

T8FILE 

C8PYSK 
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01 
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♦SR4 
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YES 
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N6-REA0 NEXT C8MMAND 
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B 


PCL6 


T9 » ERR8R 
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0? 


Q0QC6 


6$00O0D5 






B 


C6PY1 


C8PY 8R CBpyALL 


454 


0? 


OO0C7 


6^0000DF 






B 


DELI 


DELETE 8P DELETEALL 


455 


0? 


00QC8 


6*000104 






B 


TERMPCL 


END 


456 


0? 


000C9 


6*00OOEA 






B 


LIS 


LIST 


457 


0? 


OOOCA 


6*800000 


X 




BALjSR4 


REM 


REM0VE 


458 


0? 


OOOCB 


6*800000 


X 




BAL#SR4 


REW 


REW 


459 


0? 


OOOCC 


6*B00Q00 


X 




BAL/SR4 


SPF 


SPF 


460 


0? 


OOOCD 


6*8(30000 


X 




BAL#SR4 


SPE 


SPE 
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0? 


OOOCE 
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X 




BAL#SR4 


WE9F 


WE8F 


46? 


0? 


OOOCF 
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B 


PCL6 


8N - ERROR 
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0? 


OOQDq 
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B 


PCL6 


6VER - ERR8R 
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0? 


OOODl 


6*8001*8 






BAL#SRfc 


TABS 


TABS 
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0? 


OOOD? 


6*Bq014D 






BALjSR4 


REVIEW 


REVIEW 


466 
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B 


PCL6 




467 


0? 
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B 


PCL6 
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* 
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o? 


00005 
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A 


cePYi 


LW,Rt 


ARQBUFF+i,R7 


TEST FOR C0PYALL C8MMAN 


470 


0? 


0O0D6 
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CW'Rl 


iC^YALL' 
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0? 


000D7 


6*30O0DB 






BE 


C©PY3 


YES 


47? 


0? 
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3X100200 






CW#Ri 


iCiYSTDt 


TEST F8R C8PYSTD 


473 


0? 


00009 
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BSE 


C6PY2 


N8 


474 


0? 


OOOOA 


331EO0E6 


A 




MTW#1 


CePYSTDFiR7 


SET C8PYST0 FtAQ 


475 




02 


OQCD* 




CBPY3 


EGU 
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476 


0? 


OOODB 


6*BqoOOO 


X 




BAL#SR* 


C6PYALL 


EDIT AND EXECUTE C8PYAL 


477 


0? 


OOOOC 


6*Q000C3 






B 


ENDCMD 




478 


0? 
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X 


CSPYg 


BALjSRfc 


CePYTQ 


EDIT AND EXECUTE C8PY C 


479 

480 
481 


0? 


OOODE 


6»OOOOC3 




M 


B 


ENDCMD 




0? 


OOODF 
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A 


OELl 


LWjRi 


ARQ8UFF^1jR7 




48? 


0? 


OOOEO 


3U00201 






CWiRl 


•C f ETEA' 


DELETE 


483 


0? 


0O0E1 


6*30O0E8 






BNE 


DEL2 


YES 


484 


0? 


Q00E2 


321E0C2A 


A 




LW/Rl 


ARGBUFF*?,R7 




485 


0? 


0O0E3 


40100202 






ANDiRl 


iX'FFFFFFOO* 




486 


0? 


000E4 


3H00203 






CW*R1 


iX«D3034000» 


CHECK IF REALLY DELETEALL. 


487 


0? 


0O0E5 


6^300092 






BNE 


PCL6 


N8T DELETEALL 
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0? 
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6*&0OQ00 


X 




BAL#SR4 


DELETEAL 


N8.DELETEALL 
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489 


02 


OO0E7 


6*00OOC3 






B 


ENOCMD 




490 


02 


oooea 


6 a BqoOOO 


X 


0EL2 


BALjSR4 


DELETE 




491 


02 


00059 


6*0OO0C3 






B 


ENDCMO 




49? 
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493 


0? 


OOOEA 


33000000 


X 


LIS 


MTW*0 


JUIT 




494 


0? 


OOOEB 


6*l0O0F5 






BGEZ 


LIS2 


BATCH MODE 


495 


02 


OOOEC 


22500001 


A 




LI#R5 


1 


SET NO TOP OF PA^E FLAG 


496 


02 


OOOEO 


582A0001 


N 




LN#R? 


MfL0*liR5 




497 


0? 


OOOEE 


6*2000F7 






BGZ 


LIS5 


DEVICE BIT NOT SET 


49* 


0? 


OOOEF 


^0200204 






AND#R2 


iX*FFFF» 




499 


02 


OOOFO 


212003D7 


A 




Cl#R2 


»lp» 




500 


02 


OOOFl 


6*3000F5 






BE 


LIS2 




501 


02 


000 F 2 


* d 200205 






AND#R2 


iX»Foo» 




50? 


02 


0O0F3 


21200600 


A 




CIjR2 


X»600» 


IS DEVICE LP 


503 


02 


0O0F4 


6930O0F7 






B*E 


LIS5 


NO 


504 


0? 


0OQF5 


22500000 


A 


L!S2 


L!iR5 





SET TBP OF PAGE FLAG 


505 


02 


0OQF6 


0*l0O0*C 


03 




CAU,i 


TBPPAQE 


TOP BF PAGE ON LINE PR! 


506 


02 


000F7 








USECT 


PLSECT 




507 


03 
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0*000000 


X 


T6PPAQE 


GEN#8#7# 


17 Xi 4» 


jOjMjLO 


508 


03 
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USECT 


PCL 
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02 
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IIS5 


EQU 
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510 


02 


0O0F7 


6AB00000 


X 




BAL#SP4 


LIST 


PROCESS LIST COMMAND 
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02 


0O0F8 


2W500000 


A 




AWR5 







51? 


02 


OO0F9 


6*3000C3 






BNE* 


ENDCMD 


NB TBP BF PAGE NEEDED 


513 


02 


OOOFA 


0*lOOO*C 
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CALIji 


TBPPAQE 


TBP BF PAGE ON LP 


514 
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OOOFB 
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B 


ENDCMO 
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02 


OOCFW 




TERMPCL2 


ECU 
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517 


02 


OOOFC 


2*400000 
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LZ*R4 


MILS 




518 


0? 


OOOFD 


22300009 


A 
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519 
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VERSIONS 
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X 




MTW # 
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6*100102 






BGEZ 


*+3 


BATCH MODE 
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523 


0? 


00101 
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A 
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FIN 
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CALlM 


FPTABQRT 


PRINT ABORT MESSAGE 
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PCI 
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08 


00103 


6*000108 






B 


ENDPCL 
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08 


0010* 




TERMPCL 


EQU 
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588 


08 


00104 


3*000000 


X 




MTWiQ 


JUIT 


6NLINF 




589 


0? 


00105 


65*100108 






BLZ 


ENDPCL 


YES 




530 


08 


00106 


7^200058 


03 




L8#R8 


TXTRMpCL 


MESSAGE SIZE 
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08 


00107 


0*100040 
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CALlit 


FpTRMpCL 


PRINT »PCL PR9CESSINQ 


TERMINATE* 
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00108 
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PLSECT 
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03 
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A 




DATA 


X» 34Q00000» 






535 


03 
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DATA 


TXTRMPCL 
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03 


00050 


80000008 


A 




PZE 
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537 
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00051 
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A 




DATA 
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03 
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03 
03 
03 
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A 
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TEXTC 
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A 
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GEN#8j?4 
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DATA 
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DATA 


TXTABQRT 
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PZE 


*R3 
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03 
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DATA 
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03 


0O05E 
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CIC8D6D9 
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A 


TXTABORT 


TEXT 
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03 
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E3150000 


A 




DATA 
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546 


03 


00061 








USECT 


PCL 






547 




08 


0010* 




ENDPCL 


EQU 
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08 
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2^200000 
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L!#R2 
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549 


08 


00109 


6AB00114 






BAl*$R4 


CLeSDCB 


CL8SI mil© 




550 


08 


OOlOA 


22200000 
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MILL 
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08 


OOlOB 
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BAL4SR4 


CL9SDCB 


CLaSE M?LL 
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08 
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22200000 
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L!#R8 


M|D6 
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08 
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6AB00114 






BALjSR*- 


CL&SDCB 


CL8SE MID© 
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08 


OOlOE 


7U200000 


X 




LC#R2 


JlJlT 






555 


08 
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BC$*18 
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13U5 SEP 08* 
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PCI 




556 


0? 


00110 


21&00004 


A 




CliDp 
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557 


0? 
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6*300113 






BE 


ERRtgee 




558 


0? 


00112 


0*900001 


A 




MIEXIT 






559 




02 


00113 




ERR**J8B 


EGU 


i 




560 


02 


00113 


o*9oooo2 


A 




MJERR 
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56? 


0? 


00114 


32140000 


A 


CL3SDCB 


L^*R1 


0#R2 


ctes 
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0? 


00115 


31100206 






CW#Rl 


■ X* 00200000 » 




564 


0? 


00116 


E840000B 


A 




BAZ 


#SR4 


N6T 


565 


0? 


00117 


04100061 


03 




CALUl 


CL8SFPT 




566 


0? 


00118 








USECT 


plsect 




567 


03 


00061 
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A 


CL0SFPT 


QEN#8j?4 
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568 


03 
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A 




DATA 
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569 


03 
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A 




DATA 


2 


SAVE 


570 


03 
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USECT 
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A 




B 
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EXIT 
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A 




STWjRi 


C8NTPTR#R7 


607 


02 


0013* 


3$OEnoEB 
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TEST END 8F STMT 

F8R PRESENCE 8F C8NT CHAR 
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SET C8NTINUATI8N M8DE 
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TURN 8FF C8NTINUATI8N MBDE 
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R4 
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LAST STMT RETURN 

ERROR RETURN 
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COMPUTE ADR IN C»NCAT AREA 
BUMP FOR NEXT STMT 
POSITION COUNT 

CONCATENATE STMT 

TEST IF TOO MANY STMTS 
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TOO MANY CONTINUATION LINES 
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655 


0? 
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664 


0? 


0016B 
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0^200020 A 
2A1E0039 A 
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PAGE 




PSWiSR4 
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MTWji 


FR8MFHE 
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T6FILE 
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3 


STWjR? 


SFDEV 
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TERM#R7 
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BE 
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BE 


REV8 


CI#Ri 


X»15» 


BE 


REV6 
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C&PYSK 


BNEZ 


REVl 
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BAL#SR4 
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STWjRO 
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3 


BE 
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5 


BNE 


REV5M 


STW#R? 


SFDEV 


LCI 


2 
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STM/Ri 


SFARG 


BALiSR4 


ADDFILEN 


CIjD2 


1 


B6 


REV3 


MT'W#o 
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BEZ 


REV9 



INITIALIZE FBR NULL FIELD 

FLAG F8R FILE NAME 

SET DEVICE CSDE F8R OC (REV CMD ) 

NULL FR8M FIELD 

END 8F COMMAND 

N8T REVIEW COMMAND 

INDICATE DEVICE C8DE 8PTI8NAL 
GET DEVICE C8DE 



PCL DEVICEt 

SYSTEM INPUT DEVlCEt 

DC 

TEST IF OP 

N8 • ERR0R 

SAVE DEVICE C8DE 
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ERR8R 
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00176 


676 


02 


00177 


677 


0? 


00178 


678 


0? 


00179 


679 


02 


0017A 


680 


02 


0017B 
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FR8MFILE 
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STMjRi 
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FR8MCMBX 
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LCI 
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LHiRi 
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T8FILE 
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A 
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ARGBUFF*4#R7 
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07 
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7820O16D 
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L8#R2 
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BEZ 
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3^000lBD 
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REV7 


LB#R4 
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REV7 
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TERM/R7 
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REV6 


MTW#o 


cqpysk 
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BGZ 
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BIZ 


REVB 
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A 


REV4 


CIjRi 
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M8VE FILE NAME 



SAVE PBINTER T& END OF FIELD 

IS iT9f FIELD PRESENT 

N8 

GET SECBND FILE N AME 

ERR8R 

NULL IT8' FIELD 

MBVE FILE NAME 



NULL FR8M FIELD 
WAS PHV 8PTI8N USED 
YES • N8T S8RT 8KDER 

TEST IF »FR8Mt GN THAN ?T8? 

8K 

YES • ERROR 



GET DELIMITER 

C8PYALL 
DELETEALL 
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71? 
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0O19E 
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717 
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720 
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001A5 


6*30M9F 
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BLZ 
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BE 
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LIST 
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REV3 
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REV3 
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END 8F STATEMENT 
INVALID DELIMITER 



BNLINE MPDE 

DB T8p«8F«pASE F»R BATCH 
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BNLINE MODE 
08 T8P.8F.PAGE 
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SYNTAX ERR8R 
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734 


02 


001AF 


73S 


0? 


OOlBO 


736 


02 


com 
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756 


02 
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759 


02 


001C8 
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BE 
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B 
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TA8SET 
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17 

ERROR 
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7 

#R7 

#SR4 

45 

TABSEND-1 
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ADDRESS OF TAB TABLE 



ZERO TABLE 



MORE THAN 16 TABS SPECIFIED 

YES 

GET NEXT VALUE 

M!N VALUE 

MAX VALUE 

C8NVERT TO BINARY 

CONVERSION BR RANGE ERROR 
ENTER TAB VALUE IN TABLE 
INCREMENT TAB COUNT 



ANOTHER VALUE 

END OF COMMAND 
DELIMITER BUT OF SYNTAX 

SET ADDRESS OF TAB TABLE 



INVALID TAB SPECIFICATION 

MORE THAN 16 VALUES ON TABS CMD 
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02 OOlCE 
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SYNFLAG 
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ERCMDBUF 

AR3BUFF 

ARQTBL 

CMBX 

CMDBUF 
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BALjSRit 

LI#Rl 

Ll*R2 

CB#R2 

BNE 

LW#R1 

B 

LI#«2 

STBiR* 

LW,Ri 

BALiSR4 

CliRl 

BNE 

LliRl 

STW#Ri 

PLWjSR4 
B 



EQU 

+Q 
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♦2 
ECU 

ECU 

EQU 

ecu 

EQU 
EGU 
ECU 
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*R7 

PREVACT#R7 
GETARG 

ARGBUF4 
1 

#R7#Rl 
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SAVE PREVIOUS ACTION C8DE 

GET ACTIBN VERB 

F8RCE LENGTH T8 3 CHARACTERS 



test if &ne char cmo 
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ACTIBN3+1 
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#R7#Rl 



tX» 12000000* +CMDTBL 
FIXARG 



EDIT ACTJ8N VgRB 
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#R7 
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STACK POINTER 

HEADING FLAG 

RSTACK*3 

RSTACK*4 

BUFSIZE41 

ERCMQBUF+15 

ARGBUFF*16 

ArGT8|>36 

CMBX*1 



• 8N- THE ACTIBN VERB 
NB 

YES-SET-T6" 
SAVE ACTIBN C8DE 



USER ST8RAGE LAYOUT 
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CMDBUF*35 
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800 


0000008© 


INSWT 
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EQU 


IBERR+1 
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EQU 
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EQU 
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FQU 
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EQU 
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EQU 


RDFPT*7 


808 


00000095 


TOARG 


EQU 


TERM-fi 


809 


ooooqoa* 


TBSWT 


EQU 


TBARG+15 


810 


000000*9 


WRTFPT 


EQU 


TOSWT+1 


811 


OOOQOCBX 


TOVER 


EQU 


WRTFPT*8 


812 


OOOOOOBg 


SPACCT 


PQU 


TBVER+l 


813 


OOOOOCB^ 


PRNTBUF 


EQU 


SFACCT+2 


814 


00OO00D6 


RCCNUM 


EGU 


PRNTBUF+34 


815 


OOOOOCD^ 


SAVCMBX 


EQU 


RECNUM^l 


816 


OQOQOOD* 


ATTRB 


EQU 


$AVCMBX*l 


817 


COOOOOD^ 


*DILIM 


EQU 


ATTRB+1 


818 


OOOOOODA 


CARDSEQ 


EQU 


#DELIM*1 


819 


OOOOOODt 


KEY 


EQU 


CARDSEQ+2 


820 


oooooooo 


TA8SET 


EQU 


KEYM 


821 


0OOO00E8 


RSSAVE 


ECU 


TA8SET*3 


822 


OOOOOOE^ 


SYNONYM 


EQU 


RSSAVg^l 


823 


OOOQOOE* 


SFTEMP 


EQU 


SYNONYM+1 


824 


OOO00CE5 


SCRATCH 


EQU 


8FTEMP4-1 


825 


00000QE6 


COPYSTPF 


EQU 


SCRATCW*l 


826 




* 






827 


0000003® 


OEVICE 


EQU 


ARGTBL 


828 


0000003* 


FILE 


EQU 


0EVICE*3 


829 


00000030 


code 


EQU 


FlLE+2 


830 


0000003fe 


MODE 


EQU 


CBDE*1 


831 


oooooo** 


SEQUENCE 


EQU 


M0DE*4 


832 


0000004? 


SELECT 


EQU 


SEQUENCE*5 


833 


0000004* 


CIBUSED 


EQU 


8ELECT*1 


834 


000000*9 


cibleft 


EQU 


CIBUSED*! 



CURRENT DCB ADDRtSS 
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output action ve«b 

std file acct flag 

hex dump print buf <evpn adr) 

number of current record 

CMBX SAVE WORD 
ATTRIBUTE FLAG 

* delimiter flag 

2-WORD SEQUENCE INFORMATION 



SYNON FLAG 

NAME OF TEMP STD FILE 

SCRATCH TAPE SN 



ARGUMENT TABLE LAYOUT 



Hoi 



13U5 S 


lEP 08# '75 






PCL 


835 


oooooo** 


CIBT8TAL 


eQU 


CIBIEFTM 


8 3ft 


QQ0Q00#* 


CI*8RD 


EQU 


C!BT9TAL*l 


837 


OOOQQO**- 


RECSI2E 


EQU 


CIW8RDM 


838 


0000004^ 


CISEQ 


EQU 


RECSIZE*1 


839 


OOOOOCE? 


C8BUSE0 


EQU 


CBPYSTDF+t 


840 


0O0O00E* 


C89LEFT 


EQU 


CBBU5ED*1 


841 


0QOQ00E9 


C6W0RD 


EQU 


CBBLEFT*1 


84? 


000000E* 


C6NTFTR 


EQU 


C6W8RD*i 


843 


0OOO00E d 


C8NTM9DF 


eQU 


CdMPTR*! 


cS "p4f 


OOOOOOE^ 


TELC8NT 


EQU 


C8MTM8DE+1 


845 


0OOO0CEP 


EXPIRE 


EQU 


TEIC»nT*1 


846 


OOOOOOFU 


IN$ARG 


EQU 


EXPIRE*3 


847 


OOOOOOFt 


8UT$ARG 


EQU 


IN$ARG*1 


848 


OOOOOCFS 


DEVilN 


EQU 


8UTSARG+1 


849 


00000CF3 


DEV$8UT 


EQU 


DEV*lN*l 


850 


ooooocf* 


DEVSSAV 


EQU 


DEV»8UT*1 


851 


OOOOOCFS 


DEV$SAV1 


EQU 


OEViSAVtl 


852 


ooooocf* 


CMBXHLD 


EQU 


DEV$SAVl*i 


853 


000000F7 


UNACCT 


EQU 


CMBXNLD*1 


854 


OOOOOOFA 


DENSITY 


EQU 


UNACCT+3 


855 


OOOOOCF* 


DEL*CT 


EQU 


DENSITY*1 


856 




♦ 






857 


OOOOOOAQ 


ARQBUF4 


EQU 


ARGBUFF*4 


858 


FR 


PRTBUF4 


eQU 


PRTBUF*4 


859 


00000g04 


ERRFLG4 


EQU 


ERRFLAG*4 


860 




# 






861 


000000*7 


RDACCT 


EQU 


SELECT 


86? 


0OO000B4 


WRTACCT 


EQU 


PRNTQUF 


863 


00000CC& 


EXACCT 


EQU 


WRTACCTM7 


864 


OOOOOOFK 


TLBLSUE 


EQU 


255 


865 


oooooiou 


CONTINUE 


EQU 


256 


oft© 


0000020U 


I0BUF 


EQU 


512 


867 


0000022* 


FPARAM 


EQU 


I8BUF435 


868 


0000030U 


8PNFPT 


EQU 


I8BUF+256 


869 


000001D& 


LINE*N6 


EQU 


I8BUF.43 


870 


000001D6 


llNEiN&l 


EGU 


I8BUF.42 


871 


00000107 


LINEiN^P 


EQU 


I88UF.41 
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C8NT STMT P8INTE* 

C8NT STMT FLAG 

TEL C8NT STMT FLAG 

EXP DATE -3-WQ TtXTC FqRMAT 



SIDR*SIQ7«11335 

VEHICLE ACC8UNT. 

DENSITY C8DE F8r DUAL DENSITY DRIVES* 

C8UNTER F8R DELETE 

BYTE EQUIVALENTS 



TABLE 8F READ ACCTS 
TABLE 8F WRITE ACCTS 
TABLE 8F EXECUTE ACCTS. 
BYTE SIZE 8F TLA&EL 
C8NT STMT C8NCAT AREA 



HC1 



13* 
872 
873 
874 
875 
876 
877 
878 

879 

880 

881 
88p 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
89^ 
895 
896 
897 
898 
899 

900 
901 
90? 
903 
904 
905 
906 
907 



45 SEP 



08 j '75 

00QO0lD« 

OOOOOlFW 

OOOQOlF g 

OOOUOlD* 



000U016W 



0? OOlDO 

0? 0010E 
08 OOlDF 
0? OOlEO 
0? OOlEl 
0? 001E2 
0? 001E3 
0? 001E4 
0? 001E5 
0? 001E6 
0? 001E7 
0? 001E8 
0? 001E9 
0? OOtEA 

o? qoieb 

0? 001EC 

oa ooieo 

02 
0? 001EE 
0? 001EF 

0? OOlFO 
OP OOlFl 
0? 001^2 
02 00l p 3 
02 
0? C01F4 



OOOOftOlO A 



O^E3D640 
Q3C3D6D7 
03C4C5D3 
03C5D5C4 
0^D3C9E2 
0^D9C5D4 
03D9C5E6 
0^EgD7C6 
03E207C5 
03E6C5D6 
03D6D540 
Q3D6F5C5 
0*E3C1C2 
03D9C5E5 
0307C3D3 
0^40D7C3 
OOlEU 

0«000005 
01404040 

01C34040 
01C44040 
OK54040 
01D34Q40 
001F3 



PRTBUF 
SEQNUM 
LINEN9 
STRDFPT 



ECU 

EQU 
ECU 
ECU 



CM8XQIFF eQU 



CMDTBL 



CMDTBLi 
CMDTBIX 



CMQTBIXI 



*S# J? JIT 
« 



DATA 

TEXTC 
TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

TEXTC 

EQU 

DATA 

TEXTC 

TEXTC 
TEXTC 

TEXTC 

TEXTC 

FQU 

D8l 

DATA 



IBBUF-40 

I88UF.5 

I09UF.3 

PRTBUF 



PCL 
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STD FILE READ FPT 



cmdbuf*cmdbuf*cmdbuf*cmdbuf. 
•ercmdbuf-ercmdbuf 



•ERCMDBUF.ERCMDBUFl 



CMOTBLl»i 
T9 
C9P 

DEL 

END 

LIS 

REM 

REW 

SPF 

S"E 

WEO 

BN 

BVE 

REV 
PCL 
PC 
• •1 

CMDTBLXt.* 

e» 

D* 

E» 

L' 
I>1 
VERSI8N«1 





C9MMAND ACTI9N VERB TABLE 



11 
12 



BURN BATCH PCL COMMAND 



SIMULATE JIT F6R BATCH M8DE 
TESTING UNDER BPM 



HOI 



13J 


45 i 


3EP 08i 


, 175 






P 


908 










PAGE 




909 




ooooocoi 




08 


VERSI8Nt2 


910 




02 


001*4 


INT 


EQU 


$ 


911 


02 


00l?4 


3^100000 07 




MTWm 


BREAK 


91? 


0? 


001*5 


2831FFFF A 




LI#R3 


XflFFFFt 


913 


02 


001*6 


* A 220000 A 




LSiR2 


0#*i 


914 


0? 


001*7 


81200000 N 




CI#R2 


REVRP 


915 


0? 


001*8 


6*3001*8 




BSE 


•*3 


916 


0? 


001*9 


28200000 N 




LIiR2 


LIST26 


917 


02 


001FA 


<*722O00O A 




STS#R2 


OjRI 


918 


02 


OOl^B 


0*900005 A 




CALl#9 


5 


919 










FIN 




980 








* 






921 


07 


00000 




BREAK 


OSECT 





922 


07 


00000 


OOOOOOOO A 




DATA 





923 


07 


00001 




STACK 


RES 


511 


924 




07 


00l3> 


blksize 


EQU 


STACK+318 


925 




07 


0014U 


UNBADR 


EQU 


STACK* 3 l9 


926 




07 


0014X 


blkbuff 


EQU 


STACK*320 


927 




07 


00148 


ANSBLK 


ecu 


STACK4321 


928 




07 


00146 


DVLARQ 


EQU 


STACK'S 


929 




07 


0016A 


SFOEV 


EQU 


STACK+361 


930 




07 


0016<* 


DELETE* 


EQU 


STACK+363 


931 




07 


0016U 


FR8MFILE 


EQU 


STACK+364 


932 








* 






933 




07 


0017& 


T8FILE 


EQU 


STACK+372 


934 








« 






935 




07 


0017U 


RDTBL 


EQU 


STACK*380 


936 




07 


0017* 


WRTBL 


EQU 


STACK+382 


937 




07 


00181 


DATETBL 


EQU 


STACK+384 


3» <I5 




07 


QG189 


cbpysk 


EQU 


STACK*392 


939 




07 


0018* 


EATTRB 


EQU 


STACK 4 393 


940 




07 


00l8t 


SFARG 


EQU 


STACK*39g 


941 




07 


0018A 


LISTCMBX 


EQU 


STACK^^4l 


942 




07 


OOlBb 


LISTTERM 


ECU 


STACK+442 


943 




07 


QOlBL 


FR8MCMBX 


EQU 


STACK+443 


944 




07 


001BU 


C0PYRHY 


EQU 


STACK*444 
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BREAK C8NTR8L R8UTINE 
SET BREAK 



BN READ CAL 8F REVIEW 

N8 

CHANGE RETURN ADK in PsD 

RETURN T8 PROGRAM 



BREAK CBNTRBt FLAG 

STACK AREA 

SIZE 8F ANS BL8CK 

P8INTER INT8 ANS INPUT B18CK 

PTR INT8 ANS QUT^UT 8L8CK 

4»WD TABLE 8F ANS 8PTI8NS 

DEVICE LEVEL ARGUMENTS (36 wD> 

2 WD SAVE F8R C8PYSTD DEV C8DES 

FLAG SET IF 8NLINE REVIEW C8MMANU 

1ST FILE NAME 8N REVIEW^CBPYALLj 

BR DELETEALL C8MMAND 

2ND FILE NAME 8N REVIEW,C8PYALL, 

8R DELETEALL CBMMAND 

RD 8PTI8N C8UNT ANP CMBX 

WR 8PTI8N C8UNT ANU CMBX 
TABLE 8F DATES FR8M VLP 
C8PYALL SELECT FLAG 
EXTENDED ATTRIBUTE FLAG (EA) 
SAVE AREA F8R STD FILE ARGS 
SAVE PTR *8R LIST MULT FIDS 
SAVE DELlM F8R LIST MUlT FIdS 
P8INTER T8 END 8* FRBM FIELD 
C8PY TAPE IN PHYSICAL &RDER 



HOI 13145 SEP 08* 

945 07 

946 07 
9*7 07 

948 07 

949 07 

950 07 00300 

951 02 
0? 001FC 
0? 001PD 
0? 001FE 
0? OOiFF 
0? 00200 
0? 00201 
0? 00202 
0? 00203 
0? 00204 
0? 00205 
0? 00206 
OP 00207 
OP 00208 



f 75 

OOlBt 
QGlB* 
OClCU 
001C8 

U01C* 

OOOOU 

0136OOOO A 
40404040 A 
40D7C3D3 A 
E*ClD3D3 A 
E*Eg>F3C4 A 
Ct>E3CBCl A 
F^FFFFOO A 
D3D34000 A 
OUOOFFFF A 
OUOOOFOO A 
0U20O00O A 
180001EE N 
12000100 N 



SFCNT FQU 

QRANCNT EQU 

EXTBL ECU 

UNTBt FQU 



PCL 



TLABEL 



C8NTR8L SECTieN SU"KaRT| ol 00000 PT 

05 OOOQO PT 1 



EQU 

USECT 

END 



STACK*44S 
STACK**** 

STACK+447 
STACK+449 

STACK4451 

PCL 

PCL 



STANDARD FILE C0UNT 
GRANULE C9UNT F0K LIST(A) 
EX 8PTI9N CSUNT AND CMBX, 
UN 6PTI9N CSUNT AND CMBX t 
64-wSRD TAPE L^BEL BUFFERt 



4b 



02 00209 


PT 1 


03 00064 


PT 1 


06 00032 


*T 1 


07 00900 


PT 



0* 00000 PT 



HOI 



13145 S E P C8# '75 

SYMB8L values 

ACTIRN/Og OOOAC 
CL8SDCB/02 OOll* 
CMDTBlxl/02 00l*"3 

cbntptr/ooooooE* 

C8NT33/02 00129 
C8NT7/08 0013C 
DELFRR/Q2 00196 
D2/OO00O00D 
EKDCMDl/02 000** 
FPTC8MD/03 0002b 
FPTC8MP/03 Q002 A 
FPTGP/03 00000 
I*T/ 2 Q01F4 
MVSTMT/02 0013E 
PCL1/0? 000^7 
PCUP/02 00O8D 
PCL8/02 000*5 
PlSECT/03 00000 
REVC/Og 0015A 
REV4/0? 0019* 
REV8/02 OOl^B 
R2/0OQ00002 
P6/00000006 
SR3/0000000* 
TABSPNO/02 001C« 
TELC&NT/OOOOOOE^ 

TXTAB9RT/03 OOO^E 
EXTERNAL DEFINITION* 
ANSBL*/07 00142 
ATTRB/000000D8 
BUFSUE/OOOOOCO* 
CIBUSED/OQOOOC** 
CMBXDIFF/O0000l«»0 
C9BUSED/O00OQCE? 
C9PY$*/07 00189 
DCBAOD/OOOOOOgO 



ACTI9N3/02 OOlOg 
CL9SFPT/03 00061 
CM0T9L1/Q? 001ED 
C6NT1/02 00124 
C0NT4/O2 0012C 
C8PY1/02 OOODB 
DELI/02 OOODF 
D3/0000000E 
ENDPCL/02 00108 
FPTC8MD1/03 0002C 
FPTC8MP2/03 00031 
FPTHERE/03 00015 
LIS/02 OOOEA 
NXCMD/02 0004F 
PCL2/02 00095 
PCL5/02 00062 
PCL82/02 0003C 
RETURN/02 OOiDA 
REV1/02 QOlfcC 
REV5/02 001A1 
REV9/02 00178 
P3/00000003 
R7/00000007 
SR4/00C0000B 
TABSERR/02 001C6 
TERMPCL/02 00104 
TXTRMPCL/03 00052 

ARQBUFF/00000028 

BLKBUFF/07 00H1 

CARDSEO/OOOOOOOA 

CISEQ/0000004D 

CMBXNLD/0O000OF6 

C9DE/0000003D 

C6PYSTDF/000000E6 

DELtCT/OOOOOOFB 



PCI 

ACTTBL/02 000C4 
CMDTBL/O? 001DD 
C9NTCHK/Q2 00119 
C8NT2/02 0011E 
CdNTS/02 00130 
C8PY2/02 OOOOD 
DEL2/02 000E8 
D4/0O00000F 
ERR»J©B/oa 00113 
FPTCBMD2/03 00033 

FPTFlL H D/03 0003D 
FPTINT/03 00014 
LIS2/02 O0OF5 
NXCMD1/02 00082 
PCL3/02 0004C 
PCL6/02 00092 
PCL88/02 0004A 
REVA/02 00190 
REV2/02 00198 
REV6/02 00191 
RO/OOOOOOOO 
R4/00000004 
SRI/00000008 
STACK/07 00001 
TABSERR2/02 001C8 
TERMPCL2/02 OOOFC 

VERSI9N/00000002 

ARQ8UF4/O0OOO0A0 
BLKSIZE/07 0013F 
CI8LEFT/00000049 
CIW9RO/0000004B 
CMDBUF/Q000005D 
C9NTINUE/00000100 
CeW6RD/0O00O0E9 
DELETEF/07 0016C 
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8ASE«E0/0g 00005 
CMDTbLX/02 001EE 
CeNTM9DE/000000EB 
C6NT3/Q2 00128 
C9NT6/02 00132 
C8PY3/02 OOODB 
01/OOOOOOOC 
ENDCMD/02 000C3 
FPTA«8RT/03 00059 
FPTCOM03/03 00038 
FPTFlLNM/03 00047 
FPTRMPCL/03 00040 
LIS5/02 000F7 
9NLINE/02 00020 
PCL*'02 0007A 
PCL7/02 00078 
PQMSd/03 00001 
REVB/02 001A4 
REV3/02 0019F 
REV7/02 0018A 
Rl/00000001 
R5/QQ000Q05 
SR2/00000009 
TABS/02 001A8 
TABS2/02 001B1 
T8PPAQE/03 0004C 



ARQT»L/00000038 
8REA*/Q7 00000 
CIBT9TAL/0000004A 
CMBX/0000005C 
CBBLEFT/000000E8 
C8PYHHY/07 001BD 
DATETBL/07 00181 
DENSiTY/OOOOOOFA 



HOI 13845 SEP 08# »75 
DEV*fN/0000t>0F2 
DEVICE/00000018 
PRRFLA6/00000081 
EXTBL/07 OOiCo 
FPTPR8MT/03 00013 
IKiARQ/OOOOOOFO 
K£Y/o0O0000t 
LINFN0/000001F0 
M80F/0000003E 
eUT»AR6/O00O0CFX 
PRNTBUF/OOOOOO 84 
RDFPT/O0OOOU91 
REVIEN/02 091*0 
SCRATCH/OOOQOOEfc 
SFACCT/000OU082 

SFTEMP/OOOOOOE* 
TABSET/OOOOOODD 

T8ARG/0Q000099 

TRANSACT/02 00t»*A 

wrtacct/oooooqb* 

* PRIMARY REFERENCES 

ADDFiLeN 

fixarq 

LISTP6 
PRTFRR 

* N6 SEC8NDARY REFERENCES 

* Ne UNDEFINED SYMBOLS 

* ERR8R SFVERITY LEVEU 

* NQ £RR6R LINES 



DEV*8UT/0O000OF3 
OVLARG/07 00146 
ERRPLG4/00000204 
FIIE/0000003B 

FR8MCMBX/07 001BC 
INSWT/0000008B 
L!NE$Ne/0O0O0lD5 
LrSTCMBX/07 001BA 
NCNAR/0000008E 
PATCH/06 00000 
PRTBUF/00000108 
RQTBL/07 00170 
RSSAVE/00OOO0E2 
SELECT/00000047 
SFARQ/07 0018C 
STROFPT/000001D8 
TERM/00000098 
T8FIUE/07 00175 
UNACCT/000000F7 
WRTBL/07 0017F 



PCL 
0EV$SAV/000000F4 
EATTRB/07 0018A 

EXACCT/000000C5 
FPARAM/00000P23 

FR6MFILE/07 0016D 

I8BUF/00000P00 

LINE*N81/000001D6 

LISTTERM/Q7 0019B 

NPAGE/0000008F 

PCL/02 00000 

PRTBUF4/00000760 

RECNUM/000OO0D6 

RSTACK/OOOOOOOO 

SEQNUM/000001FB 

SFCNT/07 OOlBE 

SYNFLAG/00000003 

TLABFL/07 001C4 

T8SWT/00OOOOA8 

UNBADR/07 OOUO 

WRTFPT/0OO0O0A9 



DEV$SAVi/0OO0OOF5 
ERCMUBUF/00000005 

EXPlNE/OOOOOOEO 
FPTC&NSL/03 0001E 

&RANLNT/07 001BF 

J8ERK/Q000008C 

UINEtNe2/00000lD7 

MAXCMBX/OOOOOOgO 

8PNFPT/00000300 

PREVACT/00000090 

RDACCT/00000047 
RECSUE/OO0OQO4C 

SAVCMBX/00000007 

§EQUfcNCE/00000042 

SF0EV/07 0016A 

SYN8NYM/00O000E3 

TLBLSIZE/OOOOOOFF 

TeVEK/OOOOOOBl 

UNTBL/07 001C2 
•DELIM/00000009 
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C8PYALL 


C8PYTB 


DELETE 


deLeteal 


devtkan 


ERR8R 


^ETARG 


INTARG 


JJCCBUF 


JUIT 


JBlCCARS 


LIST 


njQft 


MJEI 


m:ll 


MILS 


MJSI 


MJUC 


NgVRP 


REW 


$PE 


SPF 


unrrint 


WE8F 



